home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / dalla rivista / amiga.free / diropus4.12b_gpl / config / lsprintf.asm < prev    next >
Assembly Source File  |  2000-01-27  |  2KB  |  58 lines
  1. ; Directory Opus 4
  2. ; Original GPL release version 4.12
  3. ; Copyright 1993-2000 Jonathan Potter
  4. ; 
  5. ; This program is free software; you can redistribute it and/or
  6. ; modify it under the terms of the GNU General Public License
  7. ; as published by the Free Software Foundation; either version 2
  8. ; of the License, or (at your option) any later version.
  9. ; 
  10. ; This program is distributed in the hope that it will be useful,
  11. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  12. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13. ; GNU General Public License for more details.
  14. ; 
  15. ; You should have received a copy of the GNU General Public License
  16. ; along with this program; if not, write to the Free Software
  17. ; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  18. ; 
  19. ; All users of Directory Opus 4 (including versions distributed
  20. ; under the GPL) are entitled to upgrade to the latest version of
  21. ; Directory Opus version 5 at a reduced price. Please see
  22. ; http://www.gpsoft.com.au for more information.
  23. ; 
  24. ; The release of Directory Opus 4 under the GPL in NO WAY affects
  25. ; the existing commercial status of Directory Opus 5.
  26.  
  27. _LVORawDoFmt equ -$20a
  28.  
  29.     XDEF _lsprintf
  30.     XDEF _SwapMem
  31.  
  32.     section text,code
  33.  
  34. _lsprintf:
  35.     movem.l a2/a3/a6,-(sp)
  36.     move.l 4*4(sp),a3
  37.     move.l 5*4(sp),a0
  38.     lea.l 6*4(sp),a1
  39.     lea.l stuffChar(pc),a2
  40.     move.l 4,a6
  41.     jsr _LVORawDoFmt(a6)
  42.     movem.l (sp)+,a2/a3/a6
  43.     rts
  44.  
  45. stuffChar:
  46.     move.b d0,(a3)+
  47.     rts
  48.  
  49. _SwapMem:
  50.     move.b (a0),d1
  51.     move.b (a1),(a0)+
  52.     move.b d1,(a1)+
  53.     subq.l #1,d0
  54.     bne.s _SwapMem
  55.     rts
  56.  
  57.     end
  58.